Міністерство освіти і науки України Національний університет «Львівська політехніка» Звіт про виконання лабораторної роботи №1 на тему: «Побудова елементарних геометричних зображень в середовищі турбо-паскаль» Варіант №2 Виконав: ст. гр. ІБ-44 Перевірив: Баран Р.Д. Львів-2009 Мета роботи: Навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зобра-жень та графіків функцій. Блок-схема алгоритму програми:
Готовий результат вихідного коду програми: program graphLab1; uses crt, graph; var driver, mode, gd, gm:integer; startX, startY, p:integer; x, y, z:integer; d1, d2, hd1, hd2: integer; color: Word; const basePercentage = 0.8; begin {pnp} clrscr; write('Enter horizontal: '); readln(d1); d1:=Abs(d1); write('Enter vertical: '); readln(d2); d2:=Abs(d2); driver:=detect; gd:=0; initgraph(gd,gm,'c:\tp7\bgi'); startX:=GetMaxX div 2; startY:=GetMaxY div 2; {draw poly for diamond} hd1:= d1 div 2; {half horiz} hd2:=d2 div 2; {half vert} x:=startX + hd1; y:=startY + hd2; moveto(startX + hd1, startY); lineto(startX, startY-hd2); lineto(startX - hd1, startY); lineto(startX, startY+hd2); lineto(startX + hd1, startY); ellipse(startX, startY, 0, 360, hd1, hd2); readkey; closegraph; end. Результат виконання програми: вів Висновок: В даній лабораторній роботі я навчився запускати графічний режим у середовищі мови «Турбо-Паскаль».